if (!requireNamespace("BiocManager", quietly = TRUE))  
  install.packages("BiocManager")  
BiocManager::install("DESeq2", update = TRUE, force = TRUE)
BiocManager::install("GenomeInfoDbData")
library(DESeq2)
setwd("F:\\r\\dec")
data <- read.csv("mRNA_exprSet.csv", row.names = 1, header = TRUE)  
ID<-sub(".*([0-9]{2})$", "\\1", colnames(data))
condition<-data.frame(ID=ID,sample="tumor")
condition<-ifelse(ID == "01", "tumor", "normal")
colData <- data.frame(condition = condition)  
row.names(colData) <- colnames(data)
dds <- DESeqDataSetFromMatrix(countData = data,   
                              colData = colData,   
                              design = ~ condition)  
dds <- DESeq(dds)  
res <- results(dds)  
print(res)